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FORMAT PSL 16- v04 


1984 01:54:11 VAX-11 Bliss-32 V4. 
1982 93:08:88 DISKSVMSMASTER: (SDA. OSRCTEXAMPSL.. B32; 479 ma 


ee 
eee | 


MODULE FORMAT _PSL ( IDENT = *V04-000') = 
BEGIN 


RRR TE TART E eRe eRe eee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 

® 

® 

g 

® 

x 

a 

® 

i V . 
it OTHER PERSON. NO TITLE TO AND OUNERSHIP OF . 
ie TRANSFERRED. * 
' % 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 

® 

® 

® 

® 

* 

® 

® 


:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


:* DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
:* SOFTWARE ON EQUIPMENT WHICH IS N 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 


Yee AAR ARREARS 
' 


Add module to SDA sources. 


0 

0 

p Given a longword value, format as a PSL. 

0 : Author: 

Jake VanNoy (taken from DEBUG sources) 

8 Modified by: 

00 v03-001 JLV0222 Jake VanNoy 21-JAN-1983 
1 


LIBRARY 
*SYSSLIBRARY:STARLET'; 


REQUIRE 
*SHRLIBS:UTILDEF'; 


EXTERNAL ROUTINE 
s¥s$ 


AAR WN OC 0ONOUE WN 2 OODNOA UNE WN 0 ODNOUN EWN SH OODNOUE WR MOO DNOU EWN 
—~ mk tt at 8 a a tt 3 9 9 st ss ss ss 4 as 9 ss 2 a 2 2 2 


PUPP BB BB BB EE BE FAA AA AIAI AIR DIPUNPININUNPONIDD 2 OS St OS Oe 


COOONO NEW NOUM 


4 
FAOL : ADDRESSING_MODE (GENERAL), 
LIBSPUT_OUTPUT : ADDRESSING_MODE (GENERAL); 
FORWARD ROUTINE 
fao_put : WOVALUE - 
Z format_psl : NOVALUE; ! ROUTINE TO OUTPUT PSL IN SPECIAL FORMAT 


| 
! FACILITY SDA 
i++ 
FUNCTIONAL DESCRIPTION: 

| 


SIA AA AAA AAAOUIN 
—OODONAULS WIN —OOO 


OOOO CCCOOOCOCOOCOoOO 


POPIPOPIPOPIPITIPOIPINIPINIPUNPPD 


WIN SO DONA WIN 9 OONAU EWN OOONAUE WN O OONOUS WN 


CO OD OD OD SI SINS SSID DD DOD III EE 


2 

1b-se -1984 54:11 VAX-11 8B 

1 ~300 71382 eT Hey: DISKSVMSMA 
GLOBAL ROUTINE format_psl (value, buffer) : NOVALUE = 
FUNCTIONAL DESCRIPTION: 


Formats and outputs es Lines of s ecially 
formatted data contained in the PSL. The fields shown are 


CMP = compatibility mode 
TP = trace trap pending 
FPD - first part done 
IS - interrupt stack 
CURMOD = current access mode 
PRVMOD - previous access mode 
IPL - interrupt pr hag level 
DV - apc inet overflow trap enable 
FU - floating underflow trap enable 
IV - integer overflow trap enable 
T - trace trap 
N - condition code 
Z - condition code 
V - condition code 
C - condition code 
CALLING SEQUENCE: 
FORMAT_PSL ( .psl, buffer) 
INPUTS: 
value <-The current contents of the PSL 
IMPLICIT INPUTS: 
NONE 
OUTPUTS: 


buffer is returned with length and address of psl Line. 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE value: 
NOVALUE 


SIDE EFFECTS: 


BEGIN 


oO 


LSSELERE 


PROPIPONOPOPOPONOPONOPONONNY 2 2 tt tt tt 


4 
ooo 
wm 


COOOSOOOOOOOOCOOSOOSOSOCOSSSOOOSOOOCOSOOOCOOCOCOCOOOCOOoO 
POPIPUPIPONIPINIPINIPONIPINIPIPUNIPUNPINPIPUNIPPNONY 


ee ee et et tt at 
RUN SSS VERE WV OOO 


POPSPOPoPoRoNoNononofonofnonofnys 


oO 


buffer : REF vector(2], 
value : block; 


— iti field 1% 

sition_fie = 0, 8, 1%, 

Size. field = i 1% 
mode field = 6. . 
blanks_field = § « Be Bie 
width_Tield es a6, 6. VE 


ad 


0-74 p 
OSRCTEXAMPSL.B32;1°9° (2 


psl_field (name. poy ition. size, mode, width, leading_blanks) = 
5 


position, 


ze, mode OR (leading_blanks * 4), width; 


“1984 01:54:11 VAX=11_BLiss-32_¥4.0-74 p 
71984 93:08:56 DISKSVMSMASTERCSDA, SRCSEXAMPSL.032;1°%° (23 


2 
FORMAT PSL 16- 
VO e000 12-88 


v0vo 


s 43 9 LITERAL 

s Ff 9 decimal = 9 

; i max_psl_field = 15; 

; 113 § BIND 

3 : : ? psl_table = UPLIT BYTE ( 

4 5 sl_field (CMP, 31, 1,0, 1,.1), 

: 158 g Dsi-tield (TP, °30,°1,'0.'1,'3) 

> 126 psi-field (FPO, 27, 1, 6, 1, 25, 

. tae 88 psl_field (1S, 26, 1, 0, 1, 3), 

3 § 6 psl-field (CURMOD, 34. By ag 3) 

3 0 psl_field (PRVMOD g- » ke & ve 

: 128 11 psi-field (IPL, 16 . 

> 129 iF psi“field (bv, 7, 1, 6, 1, 2), 

; 130 8 1 psl_field (FU, g Sax Be Be ane 

s 151 14 psl_field (IV, 5, 1,0, 1, 2), 

3 136 0315 psl_field (T, 4, 1, 0, 1, 1), 

; 3 0 1g psl_field (N, 3, 1, 0, 1, 1), 

; «4134 031 psl_field (Z, 2, 1, 0. 1, 1), 

3; «6135 0318 psl_field (V, 1, 1, 0, 1, 1) 

; 136 0319 psl-field (C, 0, 1, 0. 1, 15 

: 1% 0854 BLOCK 

: 139 03 , 

3; 140 8 j hex_number = UPLIT BYTE (ZASCIC ‘!AD!#xB'), 

; 141 0324 stg_desc = UPLIT BYTE (ZASCIC ‘!AD!AD'), 

n 106 t 5 blanks = UPLIT BYTE (ZASCII ' J * 

: 108 0397 ; priv_modes = UPLIT BYTE ( 

; 146 0329 ZASCII ‘KERN’, 

: 147 0330 ZASCII ‘EXEC’, 

: 1468 0331 ZASCII ‘SUPR' 

> 149 05 é ZASCII "USER'S 

3 150 0 ; 

3 12 03 : : VECTOR; 

3 138 03 6 LOCAL 

3 138 ; 5 SAVE _BUFFER : VECTOR(2); ! save buffer descriptor 
s 156 ; 9 save_but fer to) = “put ferto); 

3 13f re save_buffer(1J = .buffer(1); 

: 139 ve ! Write out the standard title which describes the PSL fields. 
3; «©6161 0344 fao eye {.buffer, 

; 166 45 UPCIT (ZASCIC *: CMP TP FPD IS CURMOD PRVMOD IPL DV FU IV TNZVC!/!_")); 
; 6 46 INCR count FROM 0° TO max_pst field - 

3 192 4 iF pst table -count, mode_field] EQL decimal 

8 196 rk: BEGIN 

; 0 fao_put (.buffer, hex_number 

: 168 1 .psl_table F*zount. blanks fielgi. blanks, 
: 199 ¢ ps 5c phe «count, width_TieldJ, 

: 170 value CO, ,psl_table C.count, position. field], 
3 (Vt 54 -psi_table t.count, size_field], 0]); 


2 
1bese -1984 01:54:11 VAX-11 Bliss-32 Vv4.0-74 P 4 
14-Se 71382 Oh: eg 2) DI SKSVMEMASTER CODA. SRCSEXAMPSL..B32: 10" (2) 


v0vo 


. $F 5 END 
if ; LSE BEGIN 
: 175 8 fao_put (.buffer, stg_desc, 
; 178 9 .psl_table -count, bt anks fietgi. blanks, 
; 1! 60 -psl_table (.count, ¥ dth_Tield), 
; #178 61 priv_modes (.value f » »pSl_table fF .caynt gosition field), 
; 179 86 -psl_table L.count, size_fieldJ, 63 ); 
ip Be ee 
4 a buffer(0) = .save_buffer(0] - .buffer(0); ! Length is starti th mi ini h 
: 188 0 68 put fert 4 = “severbutterttd ee : eddress is reset aoe See Paeeny Se 
: 185 0368 1 END; ! EXAM_PSL 
.TITLE FORMAT_PSL 
SIDENT \V04-000\ 
-PSECT S$PLIT$,NOWRT,NOEXE,2 
30 01 1A 01 20 01 18 01 30 01 1€ 01 10 01 1F Q0000 P.AAA: .BYTE 31, 1, 16, 1, 30, 1, 48, 1, 27, 1, 32.1. -; 
a de a ae ol ge ae gl Ge Be a 
01 10 01 00 01 10 01 01 10 61 02 01 10 01 00020 3.1, 38e te be Te 1, 0, Be 1 1b, 1 2, -; 
42 58 23 31 44 61 21 07 Q003C P.AAB: .ASCII <?>\'ADiaxp\ © ° * * ** : 
44 41 21 44 41 21 06 00044 P.AAC: <ASCII <6>\/ADIAD\ ; 
20 20 0 20 90048 P.AAD: .ASCII \ \ ; 
dE : 45 22 QOO4F P.AAE: ASCII \KERN\ ; 
43 48 58 25 00053 "ASCII = \EXEC\ : 
32 30 55 23 0905 SASCII \SUP ; 
52 45 «53 «55 90098 ASCII \USER\ : 
49 20 44 50 46 20 50 54 20 50 4D 43 SF 21 38 0060 P.AAF: <ASCII \8!_CMP TP FPD IS CURMOD PRVMOD IPL DV FU\ ; 
MO Se RR 2 HL Se i ae Sate | 
2F 21 43 20 56 20 $0 4E 20 2 20 8 49 20 00 -ASCII \ IVT NZ V C!/!_\<0><0><0> : 
00 00 00 SF 21 00097 ; 
PSL_TABLE= P.AAA 
HE XNUMBER= P.AAB 
STGDESC= “AAC 
BLARKS= P.AAD 
PRIV_MODES= P.AAE 
.EXTRN SYSS$FAOL, LIBSPUT_OUTPUT 
-PSECT $CODE$,NOWRT,2 
o03¢ ENTRY FORMAT PSL, Save R2,R3,R4,R5 : 0241 
5 0000' GF MOV BLANKS; R ; 
e ¢ SUBL2 #4, SP ; 
08 AC OD A MOVL BUFFER, R3 > 0339 
6 Db PUSHL (R3) ; 
04 AE 04 A p MOVL 4(R3), SAVE_BUFFER+4 > 034 
5 AS OF 1 PUSHAB P.AAF : O34 
53 od 0001 PUSHL R3 > 0344 


M sf 
VOee000 2 ep. 1984 9} 38: 44 Df SKSUMSMAST ER-ESDA SRC SRC JEXAMPSL .B32; 479 (2) 


0000v CF : Fe 1A CALLS #2, FAO_PUT ; 
D iF CLAL cou T + 034 
54 BS A5S4 pe 1 1$: MOVAL Pst TABLECCOUNTI, RG + 034 
1 : CVTBL + 0354 
50 04 AC 01 1 gf EXTZV at Ts fl) VALUE, RO : 
02 Ad : BITB giRs), & wis + 0347 
iF 1 4 BNEQ $ : 
5 pb PUSHL R : 0353 
7E 03 A4 CVTBL “gp -(SP) + 0352 
55 DD C PUSHL RS : 0350 
7E 64 04 14 EE EXTV. #20, (R4), =(SP) > 0351 
F1 rf 4 BUSHAB HEX_NUM inser : 0350 
04 AS4 DF 48 2$ PUSHAL PRIV MODESEROJ + 0362 
7E 03 A4 98 0004 CVTBL 3(R43, -(SP) : 
55 DD 0005 PUSHL 5 + 0358 
7E 64 04 14 gE 05 EXTV #20, (R4), =(SP) + 0362 
F9 a3 F 0005 PUSHAB STG. best + 0358 
53 DD OSA 3$ PUSHL R3~ + 0362 
0000v CF 6 FB 0005¢ CALLS #6, FAO_PUT : 
BC 2 : F3 00061 AOBLEQ #14 COONT te + 9347 
6 6F 63 c3 00065 SUBL (Ras, SAVE BUFFER, (R3) + 0365 
04 =A 04 AE 00 00069 MOVL SAVE. BUFFER+4, 4(R3) : 0366 
04 0006E RET : 0368 


; Routine Size: 111 bytes, Routine Base: S$CODE$S + 0000 


N 2 
FORMAT_PSL 16-Sep-1984 01:54:11 VAX=11 Bliss-32 V4.0-74 Page 6 IND 
VOn~000 1a-Sep-19 4 Oh 3gid8 DT EKSVMEHASTERSLSOA SRCTEXAMPSL 83231 . (3) Tab 
H 189 q } ROUTINE fao_put( buffer, STRING, ARGUMENTS ) : NOVALUE = 
: 191 i 1 | FUNCTIONAL DESCRIPTION 
3 13 74 «1:5 
3; (19 75 1°! INPUTS: 
: 194 6 1! STRING - A COUNTED STRING WHICH CONTAINS THE DIRECTIVES FOR S$FAO. 
3 195 7 1! ARGUMENTS = THE ARGS FOR $FAO. 
; 138 4 ! buffer - The address of the beginning of the current output buffer. 
: «4198 QO 1 ! OUTPUTS: 
3; 199 ie THE SFAO OUTPUT IS PUT INTO THE OUTPUT BUFFER, and 
3 s ¢ ! the buffer pointers are updated. 
: 8¢ : ! IMPLICIT OUTPUTS: 
; 04 $ 1 ! ROUTINE VALUE: 
: 205 ; 1! NONE. 
; 206 » Fy 
: 207 89 1 I= 
: 208 0390 1 
: 09 0391 BEGIN 
; 210 0336 MAP 
: 11 Be9 buffer REF vestomhe). !' OUTPUT DESC FOR S$FAO. 
: \¢ 8 94 string REF VECTORC,BYTE); ' The etring to be formatted 
: 21 395 ! for outpu 
3 14 0396 LOCAL 
H 15 0397 INP_DESC : VECTORC2], !' INPUT DESC FOR S$FAO. 
3 sig $05 STR_SIZE : WORD; ' $FAO RETURNS OUTPUT SIZE HERE 
s 218 400 
3 219 401 inp.desc£ 0) = sstringl Ql: 
: sy b20s inp_desc(1] = stringl1]; 
; $8 Bape Signal_if_error (sys$faol( inp_desc, str_size, .buffer, arguments)); 
3 234 0406 put tert?) = but fort} - .str_size; 
3 § 5 0407 buffer(i] = .buffer(1] + .str_size; 
$ $6 0408 
s det 0409 1 END; 
0006 0000 FAO_PUT:.WORD Seye R2,R3 ; 0371 
5E 0c 00 SUBL2 #1 3 
04 AE 08 BC 9A MOV ZBL asTRING INP_DESC > 0401 
08 AE 08 Ac ; <7 A L3. #1, STRING, INP_DESC+4 > 0402 
o¢ AC 9F 0001 PUSHAB ARGUMENTS > 0404 
52 4 ac 00 1 VL BUFFER, R2 3 
5 tg 1 PUSHL R ; 
98 AE 9F 19 PUSHAB STR_SIZE 3 
1 AE 9OF 1¢ PUSHAB JP DE Se 3 
000000006 9 F 1F CALLS #4,” SYS$FAOL s 
i) 3 MOVL RO ane 3 
A E LBS = STATUS, ; 
dD C PUSHL STATUS 3 


FORMAT PSL 
v04-006 
000000006 00 


s 


04 A2 


$ 8 410 1 
9 411 1 
0 216 1 END 
1 0415 0 ELUDOM 
Name Bytes 
SPLITS 156 
SCODES 179 


File 
.$255$DUA28: CSYSLIBISTARLET.L32;1 


; Size: 179 goge + 156 data bytes 
; Run “Time 04.9 

; Elapsed. Tees 317. 

; Lines/CPU Min: 38958 

; ,ovenee/SNial = 

: ory ¥ Used: 76 pages 

; — ation Complete 


; Routine Size: 68 bytes, Routine Base: 


3 
eageen Fhe PEGs, | NaeebwRAl SER cYba sheSexampsi..032:4°° 
01 FB 308 é CALLS #1, LIBSSIGNAL 
$F a 0 6 1$: MOVZWL STR_SIZE, RO 
¢ 00 SUBL2 RO, (Re) 
gf f 003¢ MOVZWL STR SIZE RO 
c0 O05F ble RO, ~4(R25 


SCODES + OO6F 


~-EXTRN LIBSSIGNAL 


PSECT SUMMARY 


Attributes 


OVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
OVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


eucecese Symbols ocoe<--- Pages Processing 
Total Loaded Percent Mapped Time 
9776 5 0 581 00:00.8 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:EXAMPSL/OBJ=OBJ$:EXAMPSL MSRC$:EXAMPSL/UPDATE=(ENHS:EXAMPSL) 


INDE 
v04- 


0352 AH-BT13A-SE ~ DIGITAL EQUIPMENT CORPORATION 
VAX/VMS V4.0 CONF IDENTIAL_AND PROPRIETARY 


